Another Test

Summary

Column

Interactive data table

Column

Interactive visual

Number of Cars

Detail

Box 1

Test

Some other content

---
title: "Cars Dashboard"
output: 
  flexdashboard::flex_dashboard:
    source_code: embed
    orientation: columns
    vertical_layout: scroll
    theme: yeti
---


```{r setup, include=FALSE}
library(flexdashboard) # run the flexdashboard functionality
library(tidyverse) # data manipulation, etc
library(plotly) # interactive graphics
library(DT) # interactive tables

# load data
data(mtcars)
```

# Another Test

Summary
==================

## Column {data-width="650"}

### Interactive data table

```{r}
# enter code for interactive data table here
datatable(mtcars)
```

## Column {data-width="350"}

### Interactive visual

```{r, fig.width=4, fig.height=3}
# create a visual and save ggplot as object "p"
p <- ggplot(mtcars, aes(x = hp, y = mpg)) +
    geom_point()

# make interactive using ggplotly() function
ggplotly(p)

```

### Number of Cars

```{r}
# Create a gauge to show number of cars
num_cars <- nrow(mtcars)
gauge(num_cars, min = 0, max = 100)
```


Detail
===

### Box 1

# Test


Some other content